home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #4 / Amiga Plus CD - 1998 - No. 4.iso / pd / disk / cd-finder / cd-finder_demo.p < prev    next >
Text File  |  1997-11-23  |  50KB  |  1,627 lines
  1. ; CD-Finder
  2. ; 
  3. ; (c) 1997 Cyborg 
  4.  
  5.     {* Include sys:coder/preass/Options.p *}
  6.     {* Include sys:coder/preass/Prozeduren.p *}
  7.  
  8.     Include sys:coder/include/Datatypes/datatypes.i
  9.     Include sys:coder/include/intuition/icclass.i
  10.  
  11.     {* NewProc=TerminateString[Buffer][A0]*}
  12.     {* NewProc=Export[][]*}
  13.     {* NewProc=DirTree[][]*}
  14.     {* NewProc=DrawTree_SUB[][a2]*}
  15.     
  16.     {* IncSysBlock: IndexNodeSpeicher,5024*}
  17.     {* IncSysBlock: SelectedNodeSpeicher,5024*}
  18.     {* IncSysBlock: IndexItems,1024*}
  19.     {* IncSysBlock: FIB,300*}
  20.     {* IncBlock: Buffer,1000*}
  21.     {* IncBlock: Buffer1,100*}
  22.     {* IncBlock: CDName,50*}
  23.     {* IncVar: IndexNodeZeiger,Files1,Files,Dirs1,Dirs,Von*}
  24.  
  25.        {* Array[Long]: Cycle_labs,Pipe_Lab,Kcon_lab,PRT_Lab,File_lab*}
  26.        {* Array[Long]: Dateitype_Labs,ASCII,CVS_TAB,CVS_SPACE,CVS_SEMI,CVS_Komma,SYLK,Lotus*}
  27.  
  28.     {* String: Pipe_Lab="Pipe:Export"*}
  29.     {* String: KCON_Lab="KCON:"*}
  30.     {* String: PRT_Lab="PRT:"*}
  31.     {* String: File_Lab="File:"*}
  32.     {* String: ASCII="Nur Text"*}
  33.     {* String: CVS_Tab="CVS Tab"*}
  34.     {* String: CVS_Space="CVS Space"*}
  35.     {* String: CVS_Semi="CVS ;"*}
  36.     {* String: CVS_Komma="CVS ,"*}
  37.     {* String: SYLK="Sylk Excel-4+"*}
  38.     {* String: Lotus="Lotus 1-2-3"*}
  39.     {* String: Version="$VER: CD-Finder 1.1 DEMOVersion (C) CYBORG 97"*}
  40.     {* String: DoItText="Ja|Nein|Neuer Name"*}
  41.  
  42.     {* InitMinList: Index_Labs*}
  43.     {* InitMinList: Selected_Labs*}
  44.  
  45.     Eintraglaenge= 32
  46.  
  47. SECTION A,DATA
  48.  
  49. even
  50. TopazAttr:
  51.     dc.l TopazName
  52.     dc.w 8
  53.     dc.b 0,0
  54. Topazname:
  55.     dc.b "topaz.font",0
  56.     blk.b 29,0
  57.  
  58. SECTION B,CODE
  59.  
  60. AminetCheck[D7]:
  61.     Read(D7,#Buffer,1)
  62.     Seek(D7,#-1,#Offset_Current)
  63.     cmpi.b #"|",Buffer
  64.     beq .Aminet
  65.     move.l #-1,d0
  66.     RTS
  67. .aminet:
  68.     Result=Fgets(Handle,#Buffer,1000)
  69.     If Result##Buffer -> .ende
  70.     cmpi.b #"|",buffer
  71.     beq .aminet
  72. .Schleife:
  73.     Result=Fgets(Handle,#Buffer,1000)
  74.     If Result##Buffer -> .ende
  75.     move.l buffer,a0
  76. .l1:cmpi.b #" ",(a0)+
  77.     bne .l1
  78.     lea -1(a0),a1
  79. .l2:cmpi.b #" ",(a0)+
  80.     beq .l2
  81.     lea -1(a0),a2
  82. .l3:cmpi.b #" ",(a0)+
  83.     bne .l3
  84.     lea -1(a0),a3
  85.     move.l a3,d3
  86.     sub.l a2,d3
  87.     move.l a1,d2
  88.     sub.l #Buffer,d2
  89.     movem.l d0-d3/a0-a3,-(a7)
  90.     Copymem(a2,#Buffer1,d3)
  91.     movem.l (a7)+,d0-d3/a0-a3
  92.     FIB=="AMINET:"+Left$(Buffer1,d3)+"/"+Left$(Buffer,d2)+"\n"
  93.     OK=Countstring(#FIB)
  94.     Write(WH,#FIB,OK)
  95.     beq .Schleife
  96. .ende:
  97.     moveq.l #0,d0
  98.     RTS
  99.  
  100. Prefs[]:
  101.     IndexWindow=OpenGuiWindowA(000,011,300,110,"CD-Finder Prefs",
  102.                   #IDCMP_GADGETDOWN!IDCMP_GADGETUP!IDCMP_CLOSEWINDOW!IDCMP_IDCMPupdate,
  103.                   #WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET!WFLG_RMBTRAP!0,0,0)
  104.     Checkf IndexWindow,WaitMessage
  105.     IndexGUI=CreateGuiInfoA(IndexWindow,0)
  106.     CreateGuiGadgetA(IndexGui,10,10,200,013,#CheckBox_Kind,
  107.      >GadgetP00Tags:GEG_Description,0|
  108.                     GEG_Text,GadgetP00Text="Suche in einem File"|
  109.                     GEG_Flags,002|
  110.                     Tag_done,0)
  111.     {* IncVar: SearchOnly*}
  112.     CreateGuiGadgetA(IndexGui,10,25,200,013,#CheckBox_Kind,
  113.      >GadgetP01Tags:GEG_Description,0|
  114.                     GEG_Text,GadgetP01Text="Anzeige beim Scannen"|
  115.                     GEG_Flags,002|
  116.                     Tag_done,0)
  117.     DrawGuiA(IndexGui,0)
  118. .WaitMessage:
  119.     {* Flush *}
  120.     WaitGuiMsg(IndexGui)
  121.     MsgClass=.l36(IndexGui)
  122.     If MsgClass##IDCMP_CloseWindow  --> .WaitMessage
  123.     CloseGuiWindow(IndexWindow)
  124.     RTS
  125.  
  126. Cnop 0,4
  127. Open_Window:
  128.     Window=OpenGuiWindowA(000,011,640,50,"CD-Finder",
  129.             #IDCMP_GADGETDOWN!IDCMP_GADGETUP!IDCMP_CLOSEWINDOW!IDCMP_VANILLAKEY!IDCMP_RAWKEY!0,
  130.             #WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET!WFLG_RMBTRAP!0,0,0)
  131.     Checkf Window,Open_Windowende
  132.     GUI=CreateGuiInfoA(Window,0)
  133. Open_Windowende:RTS
  134.  
  135. Create_Gadgets:
  136.     CreateGuiGadgetA(Gui,070,005,100,012,#String_Kind,
  137.             >Gadget000Tags:GEG_Description,0|
  138.                 GEG_Text,GADGET000Text="_Device:"|
  139.                 GEG_Flags,001|
  140.                 GEG_Varaddress,Device|
  141.                 Tag_done,0)
  142.  
  143.     {* IncSysBlock: Device,100*}
  144.     CreateGuiGadgetA(Gui,005,020,080,012,#Button_Kind,
  145.             >Gadget001Tags:GEG_Description,0|
  146.                 GEG_Text,GADGET001Text="S_can"|
  147.                 GEG_Flags,016|
  148.                 Tag_done,0)
  149.  
  150.     CreateGuiGadgetA(Gui,090,020,080,012,#Button_Kind,
  151.             >Gadget002Tags:GEG_Description,0|
  152.                 GEG_Text,GADGET002Text="_Edit"|
  153.                 GEG_Flags,016|
  154.                 Tag_done,0)
  155.  
  156.     CreateGuiGadgetA(Gui,175,020,080,012,#Button_Kind,
  157.             >Gadget003Tags:GEG_Description,0|
  158.                 GEG_Text,GADGET003Text="_Suche"|
  159.                 GEG_Flags,016|
  160.                 Tag_done,0)
  161.  
  162.     CreateGuiGadgetA(Gui,230,005,400,012,#String_Kind,
  163.             >Gadget004Tags:GEG_Description,0|
  164.                 GEG_Text,GADGET004Text="_Text"|
  165.                 GEG_Flags,001|
  166.                 GEG_Varaddress,SuchText|
  167.                 Tag_done,0)
  168.  
  169.     {* IncSysBlock: SuchText,100*}
  170.     CreateGuiGadgetA(Gui,260,020,127,012,#Button_Kind,
  171.             >Gadget005Tags:GEG_Description,0|
  172.                 GEG_Text,GADGET005Text="_Importieren"|
  173.                 GEG_Flags,048|
  174.                 Tag_done,0)
  175.  
  176.     CreateGuiGadgetA(Gui,390,020,240,06,#GEG_ProgressIndicatorKind,
  177.             >Gadget006Tags:GEG_Description,0|
  178.                    GEG_Flags,016|
  179.                 Tag_done,0)
  180.  
  181.     CreateGuiGadgetA(Gui,390,027,240,06,#GEG_ProgressIndicatorKind,#Gadget006Tags)
  182.     {* IncVar: Pro*}
  183.     CreateGuiGadgetA(Gui,005,034,080,012,#Button_Kind,
  184.             >Gadget008Tags:GEG_Description,0|
  185.                 GEG_Text,GADGET008Text="I_ndex"|
  186.                 GEG_Flags,016|
  187.                 Tag_done,0)
  188.     CreateGuiGadgetA(Gui,090,034,080,012,#Button_Kind,
  189.             >Gadget009Tags:GEG_Description,0|
  190.                 GEG_Text,GADGET009Text="In_fo"|
  191.                 GEG_Flags,016|
  192.                 Tag_done,0)
  193.     CreateGuiGadgetA(Gui,260,034,127,012,#Button_Kind,
  194.             >Gadget010Tags:GEG_Description,0|
  195.                 GEG_Text,GADGET010Text="E_xportieren"|
  196.                 GEG_Flags,048|
  197.                 Tag_done,0)
  198.  
  199.     CreateGuiGadgetA(Gui,175,034,080,012,#Button_Kind,
  200.             >Gadget011Tags:GEG_Description,0|
  201.                 GEG_Text,GADGET011Text="T_ree"|
  202.                 GEG_Flags,016|
  203.                 Tag_done,0)
  204.  
  205.     CreateGuiGadgetA(Gui,390,034,080,012,#Button_Kind,
  206.             >Gadget012Tags:GEG_Description,0|
  207.                 GEG_Text,GADGET012Text="_Prefs"|
  208.                 GEG_Flags,016|
  209.                 Tag_done,0)
  210.  
  211.     Result=DrawGuiA(Gui,0)
  212.     RTS
  213.  
  214. Close_Window:
  215.     CloseGuiWindow(Window)
  216.     RTS
  217.  
  218.  
  219. WritePlain[d7]:
  220.         Convertzahl(D7,0)
  221.         Zeiger==#Zusatz
  222.         Anz==8
  223. .Write_Sylk_test1:
  224.         Wert=.b(Zeiger)
  225.         cmpi.l #$00000020,Wert
  226.         bne .Write_Sylk_Test2
  227.         Zeiger==Zeiger++
  228.         Anz==Anz--
  229.         bra .Write_Sylk_test1
  230. .Write_Sylk_test2:
  231.         Write(WH,Zeiger,anz)
  232.         RTS
  233.  
  234. CountCells[a0]:
  235.     moveq.l #0,d0
  236. .count:
  237.     lea 1(a0),a0
  238.     addq.l #1,d0
  239. .CountCells1:
  240.     cmpi.b #`:`,(a0)
  241.     beq .count
  242.     cmpi.b #`/`,(a0)
  243.     beq .Count
  244.     cmpi.b #$0a,(a0)
  245.     beq .ende
  246.     cmpi.b #$00,(a0)
  247.     beq .ende
  248.     lea 1(a0),a0
  249.     bra .CountCells1
  250. .ende:
  251.     RTS
  252.  
  253. WriteZelle[a0,d1]:
  254.     moveq.l #0,d0
  255. .count:
  256.     addq.l #1,d0
  257.     cmpi.l d0,d1
  258.     beq .write
  259.     lea 1(a0),a0
  260. .CountCells1:
  261.     cmpi.b #`:`,(a0)
  262.     beq .count
  263.     cmpi.b #`/`,(a0)
  264.     beq .Count
  265.     lea 1(a0),a0
  266.     bne .CountCells1
  267. .Write:
  268.     cmpi.l #1,d1
  269.     beq .write0
  270.     lea 1(a0),a0
  271. .write0:
  272.     move.l a0,a1
  273. .weiter:
  274.     cmpi.b #`:`,(a0)
  275.     beq .next
  276.     cmpi.b #`/`,(a0)
  277.     beq .next
  278.     cmpi.b #$0a,(a0)
  279.     beq .next
  280.     cmpi.b #$00,(a0)
  281.     beq .next
  282.     lea 1(a0),a0
  283.     bra .weiter
  284. .next:
  285.     sub.l a1,a0
  286.     Write(WH,a1,a0)
  287.     RTS
  288.  
  289. TestFilename[D7,a0]:
  290.     NamefromFH(D7,#Buffer,1000)                      
  291.     Seek(D7,0,#Offset_end)
  292.     Laenge=Seek(d7,0,#Offset_begin)
  293.     Memoryblock=AllocMem(Laenge,#MEMF_CLEAR!MEMF_PUBLIC)
  294.     CheckF MemoryBlock,.error
  295.     Read(d7,Memoryblock,Laenge)
  296.     Move.l Memoryblock,d0
  297.     RTS
  298. .Error:
  299.     Moveq.l #0,d0
  300.     RTS
  301.  
  302. {* NewProc=TerminateString[Buffer][A0]*}
  303. TerminateString:
  304.     move.l a0,-(a7)
  305. .l1:cmpi.b #$00,(a0)
  306.     beq .ende
  307.     cmpi.b #$0a,(a0)
  308.     beq .Term
  309.     lea 1(a0),a0
  310.     bra.s .l1
  311. .Term:
  312.     move.b #$00,(a0)
  313. .ende:
  314.     move.l (a7)+,a0
  315.     RTS
  316.  
  317. RGets[A0]:
  318.     TerminateString(a0)
  319.     move.l memoryblock,a1
  320.     add.l Laenge,a1
  321.     cmp.l a0,a1
  322.     ble .error
  323.     moveq.l #1,d0
  324.     RTS
  325. .error:
  326.     moveq.l #0,d0
  327.     RTS
  328.  
  329. RGets2[A0]:
  330.     OK=Countstring(a0)
  331.     move.l a0,a1
  332.     add.l Ok,a1
  333.     addi.l #1,a1
  334.     move.l memoryblock,a0
  335.     add.l len,a0
  336.     cmpa.l a0,a1
  337.     bge .l1
  338.     move.l a1,d0
  339.     RTS
  340. .l1:
  341.     moveq.l #0,d0
  342.     RTS
  343.  
  344. Progress[Gadget,Prozent]:
  345.     {* IncVar: Prozent,Gadget*}
  346.     Lea SetProgressTags,a0
  347.     move.l Prozent,4(a0)
  348.     SetGUIGadgetA(gui,Gadget,>SetProgressTags:GEG_PICurrentValue,0|
  349.                                               Tag_Done,NULL)
  350.     RTS
  351.  
  352. Copy[d6,d7]:
  353.     anz=Read(d6,#Buffer,1000)
  354.     anz=Write(d7,#Buffer,anz)
  355.     If Anz=#1000 --> Copy
  356.     RTS
  357.  
  358. SetPfad[]:
  359.     FPuts(TH,#Pfad)
  360.     OK=CountString(#pfad)
  361.     Lea PFad,a0
  362.     add.l ok,a0
  363. .l1:cmpi.b #"/",(a0)
  364.     beq .Thatsit
  365.     cmpi.b #":",(a0)
  366.     beq .Thatsit
  367.     lea -1(a0),a0
  368.     bra .l1
  369. .ThatsIt:
  370.     move.b #0,1(a0)
  371.     OK=CountString(#pfad)
  372.     RTS    
  373.  
  374. SetPfad_Crunch[]:
  375.     FPuts(TH,#Pfad)
  376.     OK=CountString(#pfad)
  377.     WriteLaenge==Writelaenge+OK
  378.     ReadLaenge==Readlaenge+OK
  379.     Lea PFad,a0
  380.     add.l ok,a0
  381. .l1:cmpi.b #"/",(a0)
  382.     beq .Thatsit
  383.     cmpi.b #":",(a0)
  384.     beq .Thatsit
  385.     lea -1(a0),a0
  386.     bra .l1
  387. .ThatsIt:
  388.     lea 1(a0),a0
  389.     move.b #0,(a0)+
  390.     RTS
  391.  
  392. SetPfad_Compare[]:
  393.     OK=CountString(#pfad2)
  394.     Lea PFad2,a0
  395.     add.l ok,a0
  396. .l1:cmpi.b #"/",(a0)
  397.     beq .Thatsit
  398.     cmpi.b #":",(a0)
  399.     beq .Thatsit
  400.     lea -1(a0),a0
  401.     bra .l1
  402. .ThatsIt:
  403.     lea 1(a0),a0
  404.     move.b #0,(a0)+
  405.     RTS
  406.  
  407. ComparePfad[a0,a1]:
  408.     move.b (a0)+,d0
  409.     move.b (a1)+,d1
  410.     cmpi.b d0,d1
  411.     bne .dismatch
  412.     cmpi.b #0,(a0)
  413.     bne ComparePfad
  414.     moveq.l #-1,d0
  415.     RTS
  416. .dismatch:
  417.     moveq.l #0,d0
  418.     RTS
  419.  
  420.  
  421. Crunch[Handle]:
  422.     Progress(6,50)
  423.     Counter==Counter*2
  424.     Count==0
  425.     ReadLaege==0
  426.     Writelaenge==0
  427.     Move.l Handle,-(a7)
  428.     Move.l TH,-(a7)
  429.     Move.l OK,-(a7)
  430.     Move.l Result,-(a7)
  431.     Handle=Open(Handle,#Mode_old)
  432.     TH=Open("t:swap.crunch",#mode_new)
  433.     Write(TH,"CM01\n",5)
  434.     Result=Fgets(Handle,#Pfad,150)
  435.     If Result##Pfad -> .ende
  436. .l0:
  437.     SetPfad_Crunch()
  438.     Copymem(#pfad,#Pfad_1,150)
  439. .l1:    
  440.     Pro==Writelaenge*100
  441.     Pro==Pro/ReadLaenge
  442.     Progress(7,Pro)
  443.     Count==Count+1
  444.     Pro==Count*100
  445.     Pro==Pro/Counter
  446.     Pro==Pro+50
  447.     Progress(6,Pro)
  448.     Result=Fgets(Handle,#Pfad,150)
  449.     If Result##Pfad -> .ende1
  450.     OK=Countstring(#Pfad)
  451.     Readlaenge==Readlaenge+ok
  452.     Copymem(#pfad,#Pfad2,150)
  453.     SetPfad_Compare()
  454.     Match=ComparePfad(#Pfad2,#Pfad_1)
  455.     CheckF Match,.l0
  456.     Fwrite(TH,"%",1,1)
  457.     OK=Countstring(#Pfad)
  458.     lea pfad,a0
  459.     add.l ok,a0
  460. .l2:cmpi.b #"/",(a0)
  461.     beq .Thatsit
  462.     cmpi.b #":",(a0)
  463.     beq .Thatsit
  464.     lea -1(a0),a0
  465.     bra .l2
  466. .ThatsIt:
  467.     lea 1(a0),a0
  468.     move.l a0,Result
  469.     OK=Countstring(Result)
  470.     Fwrite(TH,Result,ok,1)
  471.     OK==OK+1
  472.     WriteLaenge==Writelaenge+OK
  473.     bra .l1
  474. .ende1:
  475.     Seek(TH,0,#Offset_begin)
  476.     NamefromFH(Handle,#pfad,150)
  477.     Close(Handle)
  478.     Handle=Open(#Pfad,#Mode_new)
  479.     Copy(TH,Handle)
  480.     Close(TH)
  481.     Close(handle)
  482.     Deletefile("T:swap.crunch")
  483.     bra .ende2
  484. .Ende:
  485.     Close(TH)
  486.     Close(handle)
  487. .ende2:
  488.     Move.l (a7)+,Result
  489.     Move.l (a7)+,OK
  490.     Move.l (a7)+,TH
  491.     Move.l (a7)+,Handle
  492.     Progress(6,100)
  493.     RTS
  494.  
  495. Decrunch[Handle]:
  496.     {* IncsysBlock: Pfad,150*}
  497.     {* IncsysBlock: Pfad_1,150*}
  498.     {* IncsysBlock: Pfad2,150*}
  499.     {* IncVar: Handle*}
  500.     Countfiles==1
  501.     CountDirs==1
  502.     MaxZellen==0
  503.     Move.l Handle,-(a7)
  504.     Move.l TH,-(a7)
  505.     Move.l OK,-(a7)
  506.     Move.l Result,-(a7)
  507.     move.l handle,a0
  508.     move.l (a0),Handle
  509.     Fgets(Handle,#Pfad,150)
  510.     If Pfad##"CM01" --> .Ende
  511.     TH=Open("t:swap.decrunch",#mode_new)
  512.     Result=Fgets(Handle,#Pfad,150)
  513.     If Result##Pfad -> .ende
  514.     bra .l0
  515. .l00:
  516.     CopyMem(#Pfad_1,#Pfad,150)
  517. .l0:
  518.     Countdirs==Countdirs++
  519.     SetPfad()
  520. .l1:    
  521.     Result=Fgets(Handle,#Pfad_1,150)
  522.     If Result##Pfad_1 -> .ende1
  523.     Zellen=CountCells(#pfad_1)
  524.     If Zellen>maxZellen {
  525.                           maxZellen==Zellen
  526.                         }
  527.     Countfiles==Countfiles++
  528.     Cmpi.b #"%",pfad_1
  529.     bne .l00
  530.     FWrite(TH,#Pfad,OK,1)
  531.     FPuts(TH,#Pfad_1+1)
  532.     bra .l1
  533. .ende1:
  534.     Close(Handle)
  535.     move.l TH,D7
  536.     Seek(D7,0,#Offset_Begin)
  537.     Move.l (a7)+,Result
  538.     Move.l (a7)+,OK
  539.     Move.l (a7)+,TH
  540.     Move.l (a7)+,a0
  541.     move.l D7,(a0)
  542.     RTS
  543. .ende:
  544.     Seek(Handle,0,#Offset_Begin)
  545.     Move.l (a7)+,Result
  546.     Move.l (a7)+,OK
  547.     Move.l (a7)+,TH
  548.     Move.l (a7)+,Handle
  549.     RTS
  550.  
  551. Progressfiles[]:
  552.     {* IncVar: Merker*}
  553.     Counter==Counter+1
  554.     Files==Files+1
  555.     If Files<#10 --> .ende
  556.     Files==0
  557.     Merker==Merker+1
  558.     If Merker<#101 --> .l1
  559.     Merker==0 
  560. .l1:
  561.     Lea SetProgressTags,a0
  562.     move.l Merker,4(a0)
  563.     SetGUIGadgetA(gui,7,#SetProgressTags)
  564. .ende:
  565.     RTS
  566.  
  567. ProgressReadlines[]:
  568.     Counter==Counter+1
  569.     If Counter<#10 --> .ende
  570.     Counter==0
  571.     Merker==Merker+1
  572.     If Merker<#101 --> .l1
  573.     Merker==0 
  574. .l1:
  575.     Lea SetProgressTags,a0
  576.     move.l Merker,4(a0)
  577.     SetGUIGadgetA(gui,7,#SetProgressTags)
  578. .ende:
  579.     RTS
  580.  
  581. GetCDName[a0]
  582.     Dirlock=Lock(a0,#Access_read)
  583.     NameFromLock(Dirlock,#CDName,100)
  584.     CheckF Dirlock,.ende
  585.     Unlock(Dirlock)
  586. .ende:
  587.     RTS
  588.  
  589. GetIndex[]:
  590.     Zahl==0
  591.     Dirlock=Lock("Base-CD:",#access_read)
  592.     FillBuffer(#Fib,0,300)
  593.     Examine(Dirlock,#FIB)
  594. .Schleife:
  595.     Zahl==Zahl+1
  596.     OK=ExNext(Dirlock,#FIB)
  597.     CheckT Ok,.Schleife
  598.     Unlock(Dirlock)
  599.     move.l Zahl,d0
  600.     RTS
  601.  
  602. Anhaengen[]:
  603.     Result=GuiRequestA(Gui,"Schon vorhanden anhängen?",#GER_YNCkind,>DOITTags:GER_Gadgets,DOITTEXT|Tag_done,Null)
  604.     If Result=#GER_No {
  605.                        Close(FH)
  606.                        FH=Open(#Buffer,#Mode_new)
  607.                       }
  608.     If Result=#GER_Cancel {
  609.                             {* Flush *}
  610.                             Close(FH)
  611.                             Copymem("Base-CD:\$00",#Dirname,?)
  612.                             Copymem(".index\$00",#Filename,?)
  613.                             FileReq(0)
  614.                             {* Flush *}
  615.                             FH=Open(#Name_bak,#Mode_new)
  616.                           }
  617.     {* Flush *}
  618.     Seek(FH,0,#Offset_end)
  619.     RTS
  620.  
  621. EinScannen[]:
  622.     IndexWindow=OpenGuiWindowA(000,011,640,255,"CD-Finder Directoryindex",
  623.             #IDCMP_GADGETDOWN!IDCMP_GADGETUP!IDCMP_CLOSEWINDOW!IDCMP_IDCMPupdate,
  624.             #WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET!WFLG_RMBTRAP!0,0,0)
  625.     Checkf IndexWindow,.ende
  626.     IndexGUI=CreateGuiInfoA(IndexWindow,0)
  627.     NewObject=NewDTObjectA(#Buffer,>NewDTTAGS:GA_Left,5|GA_TOP,11|
  628.                                                       GA_Width,630|GA_Height,248|
  629.                                                       GA_ID,1|
  630.                                                       ICA_Target,ICTARGET_IDCMP|
  631.                                                       Tag_done,Null)
  632.     AddDTObject(IndexWindow,0,NewObject,-1)
  633. .WaitMessage:
  634.     {* Flush *}
  635.     WaitGuiMsg(IndexGui)
  636.     MsgClass=.l36(IndexGui)
  637.     MsgGadNbr=.w52(IndexGui)
  638.     MsgChar=.b43(IndexGui)
  639.     If MsgClass=#IDCMP_IDCMPUpdate {
  640.                                      RefreshDTObjectA(NewObject,IndexWindow,0,0)
  641.                                      Bra .WaitMessage
  642.                                    }
  643.     If MsgClass##IDCMP_CloseWindow  --> .WaitMessage
  644.     {* Flush *}
  645.     RemoveDTObject(IndexWindow,NewObject)
  646.     DisposeDTObject(NewObject)
  647.     CloseGuiWindow(IndexWindow)
  648. .ende:
  649.     RTS
  650.  
  651. Start:
  652.     STATUS==1
  653.     OO==0
  654.     IF (TH=Open("Env:Cd-Finder.dat",#Mode_old))##0 {
  655.                                                      Read(TH,#Status,4)
  656.                                                      Read(TH,#Searchonly,4)
  657.                                                      Close(TH)
  658.                                                    }
  659.     OH=Open("Kcon://640/200/CD-Finder/AUTO/CLOSE/WAIT",#mode_old)
  660.     If OH=#0 {
  661.                OO==1
  662.                OH=Output()
  663.              }
  664.     CD("Base-CD:")
  665.     CopyMem("CD0:",#Device,?)
  666.     Jsr Open_Window
  667.     CheckF Window,PRG_Ende
  668.     Jsr Create_Gadgets
  669.     CheckF Result,WaitMessage
  670.     GuiRequestA(Gui,"GadgetError!",#GER_OKKind,#OKTAGS)
  671.     Bra PRG_Ende
  672. WaitMessage:
  673.     WaitGuiMsg(Gui)
  674.     MsgClass=.l36(Gui)
  675.     MsgGadNbr=.w52(Gui)
  676.     If MsgClass=#IDCMP_CloseWindow --> PRG_Ende
  677.     If MsgClass##IDCMP_GadgetUp -----> WaitMessage
  678.     GuiGadgetActiona(Gui,>Gettags:GEG_GetVar,GEG_Allgadgets|
  679.                                   Tag_done,Null)
  680.     If MsgGadNbr=#1 {
  681.                       Files==0
  682.                       Dirs==0
  683.                       Counter==0
  684.                       Merker==0
  685.                       Progress(6,0)
  686.                       GetCDName(#Device)
  687.                       Buffer=="Die CD heißt: "+CDName
  688.                       GuiRequestA(Gui,#buffer,#GER_Okkind,>OKTags:GER_Gadgets,OKTEXT="Weiter"|Tag_Done,Null)
  689.                       OK=Countstring(#CDName)
  690.                       Buffer=="Base-CD:"+Left$(CDName,ok)+".Index"
  691.                       FH=Open(#Buffer,#mode_old)
  692.                       If FH##0 { 
  693.                                  Anhaengen()
  694.                                }
  695.                       If FH=#0 { 
  696.                                  FH=Open(#Buffer,#Mode_new)
  697.                                }
  698.                       CD(#Device)
  699.                       CDlock=Lock(#Device,#Access_read)
  700.                       CheckF CDLock,CantLock
  701.                       Move.l a7,a5
  702. .Schleife:
  703.                       {* Flush *}
  704.                       OK=Examine(CDLock,#FIB)
  705.                       CheckF FH,CDENDEError
  706. .Schleife1:
  707.                       {* Flush *}
  708.                       OK=ExNext(CDLock,#FIB)
  709.                       CheckF OK,.dirende
  710.                       Progressreadlines()
  711.                       Type=.l4(#FIB)
  712.                       If Type>#0 --> .dir
  713.                       Zeiger=8(#FIB)
  714.                       Filelock=Lock(Zeiger,#Access_read)
  715.                       NameFromLock(Filelock,#Buffer,100)
  716.                       Unlock(Filelock)
  717.                       OK=Countstring(#Buffer)
  718.                       If Status=#0 --> .skippy 
  719.                       Copymem(#Buffer,#SuchText,100)
  720.                       GuiGadgetActiona(Gui,>Settags:GEG_SetVar,GEG_Allgadgets|
  721.                                                     Tag_done,Null)
  722. .skippy:              
  723.                       {* Flush *}
  724.                       Files==Files++
  725.                       Write(FH,#Buffer,ok)
  726.                       Write(FH,"\n",1)
  727.                       Bra .Schleife1
  728. .dir:
  729.                       {* Flush *}
  730.                       Counter==Counter-1
  731.                       Zeiger=8(#FIB)
  732.                       Dummy=Lock(Zeiger,#Access_read)
  733.                       Move.l Dummy,-(a7)
  734.                       Dirs==Dirs++
  735.                       Bra .Schleife1
  736. .dirende:
  737.                       {* Flush *}
  738.                       Cmp.l a5,a7
  739.                       Beq .dirende1
  740.                       Unlock(CDLock)
  741.                       Move.l (a7)+,CDLOCK
  742.                       l=Currentdir(CDLOCK)
  743.                       unlock(l)
  744.                       FillBuffer(#FIB,0,300)
  745.                       bra .Schleife
  746. .dirende1:
  747.                       {* Flush *}
  748.                       Close(FH)
  749.                       Progress(6,50)
  750.                       FillBuffer(#SuchText,0,100)
  751.                       GuiGadgetActiona(Gui,#Settags)
  752.                       Counter==Files
  753.                       Convertzahl(Files,0)
  754.                       Move.l Zusatz,Files1
  755.                       Move.l Zahl,Files
  756.                       Convertzahl(Dirs,0)
  757.                       Move.l Zusatz,Dirs1
  758.                       Move.l Zahl,Dirs
  759.                       CD("Base-CD:")
  760.                       OK=Countstring(#CDName)
  761.                       Buffer=="Base-CD:"+Left$(CDName,ok)+".Index"
  762.                       Crunch(#Buffer)
  763.                       Buffer=="Es sind "+Left$(Files,5)+" Files und "+Left$(Dirs,5)+" Dirs in "+CDName
  764.                       GuiRequestA(GUi,#Buffer,#GER_okkind,#OKTAGS)
  765.                       bra WaitMessage
  766.                     }
  767.     If MsgGadNbr=#2 {
  768.                       Progress(6,0)
  769.                       GetCDName(#Device)
  770.                       OK=Countstring(#CDName)
  771.                       Buffer=="Base-CD:"+Left$(CDName,ok)+".Index"
  772.                       FH=Open(#Buffer,#Mode_old)
  773.                       Decrunch(#FH)
  774.                       If FH##0 {
  775.                                  Found==0
  776.                                  FileReq(0)
  777.                                  CheckF Result,.close2
  778.                                  Filelock=Lock(#name_bak,#Access_Read)
  779.                                  NameFromLock(Filelock,#Buffer+2,300)
  780.                                  Unlock(Filelock)
  781.                                  OK=CountString(#Buffer+2)
  782.                                  lea Buffer,a0
  783.                                  Move.w #"#?",(a0)+
  784.                                  add.l ok,a0
  785.                                  Move.w #"#?",(a0)+
  786.                                  WH=Open("T:Swap",#Mode_New)
  787.                                  IsWild=ParsePatternNoCase(#Buffer,#FIB,300)
  788.                                  bra .SchleifeY
  789. .SchleifeX:
  790.                                  Fputs(WH,#Buffer)
  791. .SchleifeY:
  792.                                  Result=Fgets(FH,#Buffer,1000)
  793.                                  If Result##Buffer --> .close2
  794.                                  Match=MatchPatternNoCase(#FIB,#Buffer)
  795.                                  CheckF Match,.SchleifeX
  796.                                  Found==1
  797.                                  Bra .SchleifeY
  798. .close2:
  799.                                  Close(WH)
  800.                                  Close(FH)
  801.                                  Progress(6,50)
  802.                                  If Found=#1 {
  803.                                                OK=Countstring(#CDName)
  804.                                                Buffer=="Base-CD:"+Left$(CDName,ok)+".Index"
  805.                                                FH=Open("T:Swap",#Mode_old)
  806.                                                WH=Open(#buffer,#Mode_new)
  807.                                                Copy(FH,WH)
  808.                                                Close(WH)
  809.                                                Close(FH)
  810.                                                OK=Countstring(#CDName)
  811.                                                Buffer=="Base-CD:"+Left$(CDName,ok)+".Index"
  812.                                                Crunch(#Buffer)
  813.                                              }
  814.                                 Progress(5,100)
  815.                                }
  816.                     }
  817.     If MsgGadNbr=#3 {
  818.                       Progress(6,0)
  819.                       Counter==0
  820.                       Files==0
  821.                       Merker==0
  822.                       Dirs==0
  823.                       Treffer==0
  824.                       Index=GetIndex()
  825.                       CopyMem(#Suchtext,#Buffer+2,100)
  826.                       OK=CountString(#Buffer+2)
  827.                       Lea Buffer,a0
  828.                       Move.w #"#?",(a0)+
  829.                       Add.l ok,a0
  830.                       Move.w #"#?",(a0)+
  831.                       IsWild=ParsePatternNoCase(#buffer,#SuchText,100)
  832.                       If Searchonly##0 {
  833.                                           Copymem("Base-CD:\$00",#Dirname,?)
  834.                                           Copymem("\$00",#Filename,?)
  835.                                           FileReq(0)
  836.                                           Zeiger==#Name_Bak
  837.                                           Index==1
  838.                                           bra .in
  839.                                        }
  840.                       Dirlock=Lock("Base-CD:",#access_read)
  841.                       FillBuffer(#Fib,0,300)
  842.                       Examine(Dirlock,#FIB)
  843. .SchleifeZ1:
  844.                       If searchonly##0 --> .close4a
  845.                       OK=ExNext(Dirlock,#FIB)
  846.                       CheckF Ok,.close4
  847.                       Zeiger=8(#Fib)
  848. .in:
  849.                       Dirs==Dirs++
  850.                       Pro==Dirs*100
  851.                       Pro==Pro/Index
  852.                       Progress(6,Pro)
  853.                       FH=Open(Zeiger,#Mode_Old)
  854.                       Decrunch(#FH)
  855.                       If (Zeiger=TestFilename(Fh,"T:swap.decrunch"))##0 --> .SchleifeZ2
  856. .SchleifeZ:
  857.                                  Result=Fgets(FH,#Buffer,1000)
  858.                                  If Result##Buffer --> .close3
  859.                                  ProgressFiles()
  860.                                  Match=MatchPatternNoCase(#SuchText,#Buffer)
  861.                                  CheckF Match,.SchleifeZ
  862.                                  Treffer==Treffer++
  863.                                  OK=Countstring(#Buffer)
  864.                                  Write(Oh,#Buffer,OK)
  865.                                  bra .SchleifeZ
  866. .SchleifeZ3:
  867.                                  OK=Countstring(Zeiger)
  868.                                  Zeiger==Zeiger+OK
  869.                                  Zeiger==Zeiger++
  870. .SchleifeZ2:
  871.                                  Result=Rgets(Zeiger)
  872.                                  If Result=#0 --> .close3a
  873.                                  ProgressFiles()
  874.                                  Match=MatchPatternNoCase(#SuchText,Zeiger)
  875.                                  CheckF Match,.SchleifeZ3
  876.                                  Treffer==Treffer++
  877.                                  OK=Countstring(Zeiger)
  878.                                  Write(Oh,Zeiger,OK)
  879.                                  Write(Oh,"\n",1)
  880.                                  Zeiger==Zeiger+OK
  881.                                  Zeiger==Zeiger++
  882.                                  bra .SchleifeZ2
  883. .close3a:
  884.                       Freemem(Memoryblock,laenge)
  885. .close3:
  886.                       NamefromFH(FH,#Buffer,1000)                      
  887.                       Filepointer=FilePart(#Buffer)
  888.                       Match=Comparestring(FilePointer,"swap.decrunch",0,#Mode_Nocase)
  889.                       If Match##0 --> .close6
  890.                       Close(FH)
  891.                       bra .Schleifez1
  892. .close6:
  893.                       Close(FH)
  894.                       Deletefile(#Buffer)
  895.                       bra .Schleifez1
  896. .close4:
  897.                       Unlock(Dirlock)
  898. .Close4a:             Convertzahl(Treffer,OH)
  899.                       Write(OH," Treffer in ",?)
  900.                       Convertzahl(Counter,OH)
  901.                       Write(OH," Einträgen durchsucht auf ",?)
  902.                       Convertzahl(Index,OH)
  903.                       Write(OH," CD's!\n",?)
  904.                       Progress(6,100)
  905.                     }
  906.     If MsgGadNbr=#5 {
  907.                       Progress(6,0)
  908.                       FileReq(0)
  909.                       CheckF Result,WaitMessage
  910.                       FH=Open(#name_bak,#Mode_old)
  911.                       CheckF FH,WaitMessage
  912.                       OK=CountString(#Name)
  913.                       Buffer=="Base-CD:"+Left$(Name,ok)+".Index"
  914.                       WH=Open(#Buffer,#Mode_NEW)
  915.                       CheckF WH,.Close5
  916.                       OK=AminetCheck(FH)
  917.                       Checkf Ok,.close5
  918.                       Copy(FH,WH)
  919. .close5:              
  920.                       Close(FH)
  921.                       Close(WH)
  922.                       Buffer=="Base-CD:"+Left$(Name,ok)+".Index"
  923.                       Crunch(#buffer)                      
  924.                       Progress(6,100)
  925.                     }
  926.     If MsgGadNbr=#8 {
  927.                       Progress(6,0)
  928.                       Copymem("Base-CD:\$00",#Dirname,?)
  929.                       Copymem(".Index\$00",#Filename,?)
  930.                       FileReq(0)
  931.                       CheckF Result,WaitMessage
  932.                       FH=Open(#Name_bak,#Mode_old)
  933.                       CheckF FH,WaitMessage
  934.                       Decrunch(#FH)
  935.                       NamefromFH(fh,#Buffer,1000)
  936.                       Close(FH)
  937.                       EinScannen()
  938.                       DeleteFile(#Buffer)
  939.                       Progress(6,100)
  940.                     }
  941.     If MsgGadNbr=#9 {
  942.                       Progress(6,0)
  943.                       Copymem("Base-CD:",#Dirname,?)
  944.                       Copymem(".Index\$00",#name,?)
  945.                       FileReq(0)
  946.                       CheckF Result,WaitMessage
  947.                       FH=Open(#Name_bak,#Mode_old)
  948.                       CheckF FH,WaitMessage
  949.                       Seek(FH,0,#Offset_end)
  950.                       Laenge=Seek(FH,0,#Offset_begin)
  951.                       Decrunch(#FH)
  952.                       NamefromFH(fh,#Buffer,1000)
  953.                       Seek(FH,0,#Offset_end)
  954.                       Laenge2=Seek(FH,0,#Offset_begin)
  955.                       Close(FH)
  956.                       DeleteFile(#Buffer)
  957.                       IndexWindow=OpenGuiWindowA(000,011,300,110,"CD-Finder Status",
  958.                                     #IDCMP_GADGETDOWN!IDCMP_GADGETUP!IDCMP_CLOSEWINDOW!IDCMP_IDCMPupdate,
  959.                                     #WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET!WFLG_RMBTRAP!0,0,0)
  960.                       Checkf IndexWindow,WaitMessage
  961.                       IndexGUI=CreateGuiInfoA(IndexWindow,0)
  962.                       OK=Countstring(#name)
  963.                       OK==OK-6
  964.                       OK==OK+#name
  965.                       Copymem("\$00",OK,1)
  966.                       Convertzahl(Laenge,0)
  967.                       Copymem(#zusatz,#gepackt_txt,8)
  968.                       Copymem(" Bytes",#gepackt_Txt+8,?)  
  969.                       Convertzahl(Countfiles,0)
  970.                       Copymem(#zusatz,#Files_txt,8)
  971.                       Copymem(" Stück",#Files_Txt+8,?)  
  972.                       Convertzahl(CountDirs,0)
  973.                       Copymem(#zusatz,#Dirs_txt,8)
  974.                       Copymem(" Stück",#Dirs_Txt+8,?)  
  975.                       Convertzahl(Laenge2,0)
  976.                       Copymem(#zusatz,#ungepackt_txt,8)
  977.                       Copymem(" Bytes",#ungepackt_Txt+8,?)  
  978.                       Laenge==Laenge*100
  979.                       Laenge==Laenge/Laenge2
  980.                       Convertzahl(Laenge,0)
  981.                       Copymem("          ",#Ratio_txt,?)
  982.                       Copymem(#zahl+1,#ratio_txt+5,3)
  983.                       Copymem("%",#Ratio_Txt+9,?)  
  984.                       CreateGuiGadgetA(IndexGui,90,10,200,013,#Text_Kind,
  985.                        >GadgetI00Tags:GEG_Description,0|
  986.                                       GTTX_Border,1|
  987.                                       GEG_Text,GadgetI00Text="Volumen:"|
  988.                                       GTTX_Text,name|
  989.                                       Tag_done,0)
  990.                       CreateGuiGadgetA(IndexGui,90,40,200,013,#Text_Kind,
  991.                        >GadgetI01Tags:GEG_Description,0|
  992.                                       GTTX_Border,1|
  993.                                       GEG_Text,GadgetI01Text="Gepackt:"|
  994.                                       GTTX_Text,gepackt_txt|
  995.                                       Tag_done,0)
  996.                       {* Incblock: gepackt_TXT,100*}
  997.                       CreateGuiGadgetA(IndexGui,90,25,200,013,#Text_Kind,
  998.                        >GadgetI02Tags:GEG_Description,0|
  999.                                       GTTX_Border,1|
  1000.                                       GEG_Text,GadgetI02Text="Ungepackt:"|
  1001.                                       GTTX_Text,ungepackt_txt|
  1002.                                       Tag_done,0)
  1003.                       {* Incblock: ungepackt_TXT,100*}
  1004.                       CreateGuiGadgetA(IndexGui,90,55,200,013,#Text_Kind,
  1005.                        >GadgetI03Tags:GEG_Description,0|
  1006.                                       GTTX_Border,1|
  1007.                                       GEG_Text,GadgetI03Text="Ratio:"|
  1008.                                       GTTX_Text,Ratio_txt|
  1009.                                       Tag_done,0)
  1010.                       {* Incblock: Ratio_TXT,100*}
  1011.                       CreateGuiGadgetA(IndexGui,90,70,200,013,#Text_Kind,
  1012.                        >GadgetI04Tags:GEG_Description,0|
  1013.                                       GTTX_Border,1|
  1014.                                       GEG_Text,GadgetI04Text="Files:"|
  1015.                                       GTTX_Text,Files_txt|
  1016.                                       Tag_done,0)
  1017.                       {* Incblock: Files_TXT,100*}
  1018.                       CreateGuiGadgetA(IndexGui,90,85,200,013,#Text_Kind,
  1019.                        >GadgetI05Tags:GEG_Description,0|
  1020.                                       GTTX_Border,1|
  1021.                                       GEG_Text,GadgetI05Text="Dirs:"|
  1022.                                       GTTX_Text,Dirs_txt|
  1023.                                       Tag_done,0)
  1024.                       {* Incblock: Dirs_TXT,100*}
  1025.                       DrawGuiA(IndexGui,0)
  1026.                       Progress(6,100)
  1027.                       CloseGuiWindow(IndexWindow)
  1028.                     }
  1029.     If MsgGadNbr=#10 {
  1030.                         Progress(6,0)
  1031.                         IndexWindow=OpenGuiWindowA(000,011,640,200,"CD-Finder Export",
  1032.                          #IDCMP_GADGETDOWN!IDCMP_GADGETUP!IDCMP_CLOSEWINDOW!IDCMP_REFRESHWINDOW!IDCMP_VANILLAKEY!IDCMP_MOUSEBUTTONS,
  1033.                          #WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET!WFLG_RMBTRAP!0,0,0)
  1034.                         Checkf IndexWindow,WaitMessage
  1035.                         SelectedNodeZeiger==#SelectedNodespeicher
  1036.                         Jsr Indexliste_erstellen
  1037.                         {* Flush *}
  1038.                         IndexGUI=CreateGuiInfoA(IndexWindow,0)
  1039.                     CreateGuiGadgetA(IndexGui,10,115,200,015,#String_Kind,
  1040.                             >GadgetE00Tags:GEG_Description,0|
  1041.                                                        GEG_Flags,016|
  1042.                                                        GEG_Varaddress,IndexItem|
  1043.                                                        Tag_done,0)
  1044.                     {* IncSysBlock: IndexItem,100*}
  1045.                         GuiGadgetinfo100=GetGuiGadgetA(IndexGui,000,#GEG_Address)
  1046.                           lea GadgetE01tags,a0
  1047.                     4(a0)==GuiGadgetInfo100
  1048.                          CreateGuiGadgetA(IndexGui,010,015,200,0100,#Listview_Kind,
  1049.                                    >GadgetE01Tags:
  1050.                                         GTLV_ShowSelected,GuiGadgetinfo100|
  1051.                                         GEG_Description,0|
  1052.                             GEG_Text,GADGETE01Text="Indexfiles:"|
  1053.                                     GEG_Flags,004|
  1054.                             GEG_Varaddress,LV_Index|
  1055.                                     GTLV_Labels,Index_Labs|
  1056.                             Tag_done,0)
  1057.                         {* Incvar: LV_index,Lv_Selected*}
  1058.                         CreateGuiGadgetA(IndexGui,250,115,200,015,#String_Kind,
  1059.                             >GadgetE02Tags:GEG_Description,0|
  1060.                                                        GEG_Flags,016|
  1061.                                                        GEG_Varaddress,SelectedItem|
  1062.                                                        Tag_done,0)
  1063.                     {* IncSysBlock: SelectedItem,100*}
  1064.                         GuiGadgetinfo101=GetGuiGadgetA(IndexGui,002,#GEG_Address)
  1065.                           lea GadgetE03tags,a0
  1066.                     4(a0)==GuiGadgetInfo101
  1067.                     CreateGuiGadgetA(IndexGui,250,015,200,0100,#Listview_Kind,
  1068.                                        >GadgetE03Tags:
  1069.                                         GTLV_ShowSelected,GuiGadgetinfo100|
  1070.                                         GEG_Description,0|
  1071.                                    GEG_Text,GADGETE03Text="Selected"|
  1072.                             GEG_Flags,004|
  1073.                             GEG_Varaddress,LV_Selected|
  1074.                             GTLV_Labels,Selected_Labs|
  1075.                             Tag_done,0)
  1076.                     CreateGuiGadgetA(IndexGui,070,120,160,013,#Cycle_Kind,
  1077.                             >GadgetE04Tags:GEG_Description,0|
  1078.                             GEG_Text,GADGETE04Text="_Output:"|
  1079.                             GEG_Flags,001|
  1080.                             GEG_Varaddress,CYCLE_Index|
  1081.                             GTCY_Labels,Cycle_Labs|
  1082.                             Tag_done,0)
  1083.                         {* IncVar: Cycle_index*}
  1084.                     CreateGuiGadgetA(IndexGui,230,120,200,013,#String_Kind,
  1085.                             >GadgetE05Tags:GEG_Description,0|
  1086.                                         GEG_Varaddress,Name_bak|
  1087.                             GEG_Flags,016|
  1088.                             Tag_done,0)
  1089.                     CreateGuiGadgetA(IndexGui,430,120,040,013,#Button_Kind,
  1090.                             >GadgetE06Tags:GEG_Description,0|
  1091.                                GEG_Text,GADGETE06Text="_REQ"|
  1092.                             GEG_Flags,016|
  1093.                             Tag_done,0)
  1094.                         CreateGuiGadgetA(IndexGui,470,120,160,013,#Cycle_Kind,
  1095.                             >GadgetE07Tags:GEG_Description,0|
  1096.                             GEG_Text,GADGETE07Text="Dateityp:"|
  1097.                             GEG_Flags,004|
  1098.                             GEG_Varaddress,Type_Index|
  1099.                             GTCY_Labels,DateiType_Labs|
  1100.                             Tag_done,0)
  1101.                         {* IncVar: Type_index*}
  1102.                     CreateGuiGadgetA(IndexGui,210,40,040,015,#Button_Kind,
  1103.                             >GadgetE08Tags:GEG_Description,0|
  1104.                                GEG_Text,GADGETE08Text=" --> "|
  1105.                             GEG_Flags,016|
  1106.                             Tag_done,0)
  1107.                     CreateGuiGadgetA(IndexGui,210,55,040,015,#Button_Kind,
  1108.                             >GadgetE09Tags:GEG_Description,0|
  1109.                                GEG_Text,GADGETE09Text=" <-- "|
  1110.                             GEG_Flags,016|
  1111.                             Tag_done,0)
  1112.                     CreateGuiGadgetA(IndexGui,10,135,100,013,#Button_Kind,
  1113.                             >GadgetE10Tags:GEG_Description,0|
  1114.                                GEG_Text,GADGETE10Text="_Export"|
  1115.                             GEG_Flags,016|
  1116.                             Tag_done,0)
  1117.                     CreateGuiGadgetA(IndexGui,120,138,240,06,#GEG_ProgressIndicatorKind,
  1118.                             >GadgetE11Tags:GEG_Description,0|
  1119.                                            GEG_Flags,016|
  1120.                             Tag_done,0)
  1121.                     DrawGuiA(IndexGui,0)
  1122. .WaitMessage1:
  1123.                       {* Flush *}
  1124.                       WaitGuiMsg(IndexGui)
  1125.                       MsgClass=.l36(IndexGui)
  1126.                       MsgCode=.w40(IndexGui)
  1127.                       MsgGadNbr=.w52(IndexGui)
  1128.                       If MsgClass=#IDCMP_CloseWindow  --> .CloseWindow
  1129.                       GuigadgetActiona(IndexGui,#GetTags)
  1130.                       If MsgGadnbr=#6 {
  1131.                                         Copymem("Turbocalc:",#Dirname,?)
  1132.                                         Copymem(".index\$00",#Filename,?)
  1133.                                         FileReq(0)
  1134.                                         CheckF Result,.WaitMessage1
  1135.                                         GuiGadgetActiona(IndexGui,>Set5tag:GEG_SetVar,5|Tag_done,Null)
  1136.                                       }
  1137.                       If MsgGadNbr=#8 {
  1138.                                         move.l LV_Index,d0
  1139.                                         Swap D0
  1140.                                         Andi.l #$FFFF,d0
  1141.                                         mulu.l #4,d0
  1142.                                         move.l d0,a0
  1143.                                         add.l #IndexItems,a0
  1144.                                         move.l Selectednodezeiger,a5
  1145.                                         Move.l (a0),10(a5)
  1146.                                         Addtail(#Selected_labs,a5)
  1147.                                         Lea 14(a5),a5
  1148.                                         Move.l a5,Selectednodezeiger
  1149.                                         SetGuiGadgetA(IndexGui,3,>SetNewItem:GTLV_Labels,Selected_Labs|Tag_done,Null)
  1150.                                        }
  1151.                       If MsgGadNbr=#9 {
  1152.                                         Node=FindName(#Selected_labs,#SelectedItem)
  1153.                                         Zeiger=.l10(Node)
  1154.                                         Remove(Node)
  1155.                                         FreeMem(Zeiger,108)
  1156.                                         SelectedNodeZeiger==SelectedNodeZeiger-14
  1157.                                         FillBuffer(SelectedNodeZeiger,0,14)
  1158.                                         SetGuiGadgetA(IndexGui,3,#SetNewItem)
  1159.                                        }
  1160.                       bra .WaitMessage1
  1161.                       
  1162. .Closewindow:
  1163.                       jsr Remove_Indexliste
  1164.                       jsr Remove_Selectedliste
  1165.                       {* Flush *}
  1166.                       CloseGuiWindow(IndexWindow)
  1167.                       Progress(6,100)
  1168.                     }
  1169. WaitMessage1:
  1170.     If MsgGadNbr=#12 {
  1171.                        Prefs()
  1172.                      }
  1173.     Bra WaitMessage
  1174.  
  1175. CDENDEError:
  1176.     Unlock(CDlock)
  1177.     GUIRequestA(Gui,"Konnte kein Indexfile anlegen!",#GER_Okkind,#OKTAGS)
  1178.     Bra WaitMessage
  1179. CantLock:
  1180.     GUIRequestA(Gui,"Device nicht gefunden, bitte CD einlegen!",#GER_Okkind,#OKTAGS)
  1181.     Bra WaitMessage
  1182. PRG_Ende:
  1183.     If Window##0 { 
  1184.                   jsr Close_window
  1185.                  }
  1186.     CD("Progdir:")
  1187.     IF OO=#0 do Close(OH)
  1188.     IF (TH=Open("Env:Cd-Finder.dat",#Mode_old))##0 {
  1189.                                                      Write(TH,#Status,4)
  1190.                                                      Write(TH,#Searchonly,4)
  1191.                                                      Close(TH)
  1192.                                                    }
  1193.     RTS
  1194.  
  1195.  
  1196. IndexListe_erstellen:
  1197.     Dirlock=Lock("Base-CD:",#Access_read)
  1198.     FillBuffer(#Fib,0,300)
  1199.     Examine(Dirlock,#FIB)
  1200.     lea IndexItems,a4
  1201. .Schleife:
  1202.     {* Flush *}
  1203.     OK=Exnext(Dirlock,#FIB)
  1204.     CheckF OK,.dirende
  1205.     Type=.l4(#FIB)
  1206.     If Type>#0 --> .Schleife
  1207.     Zeiger=8(#FIB)
  1208.     Memoryblock=AllocMem(108,#MEMF_public)
  1209.     Checkf Memoryblock,.dirende
  1210.     move.l memoryblock,(a4)+
  1211.     Copymem(Zeiger,Memoryblock,108)
  1212.     bra .Schleife
  1213. .Dirende:
  1214.     Unlock(Dirlock)
  1215.     lea IndexItems,a4
  1216.     lea IndexNodespeicher,a5
  1217. .node1:    
  1218.     Checkf (a4),.node2
  1219.        move.l (a4)+,10(a5)
  1220.        Addtail(#Index_labs,a5)
  1221.        lea 14(a5),a5
  1222.        bra .node1
  1223. .node2:
  1224.     Move.l a5,Indexnodezeiger
  1225.     RTS
  1226.  
  1227. Remove_SelectedListe:
  1228.     Node=RemTail(#Selected_Labs)
  1229.     CheckT Node,Remove_SelectedListe
  1230.     FillBuffer(#Selectednodespeicher,0,5024)
  1231.     RTS
  1232.  
  1233. Remove_IndexListe:
  1234.     Node=RemTail(#Index_Labs)
  1235.     CheckT Node,Remove_IndexListe
  1236.     move.l #IndexItems,a5
  1237. .l1:move.l (a5)+,a1
  1238.     cmpi.l #0,a1
  1239.     beq .ende
  1240.     Freemem(a1,108)
  1241.     bra .l1    
  1242. .ende:        
  1243.     FillBuffer(#Indexnodespeicher,0,5024)
  1244.     FillBuffer(#IndexItems,0,1024)
  1245.     RTS
  1246.  
  1247. Readin[]:
  1248.     Copymem("Base-CD:",#Dirname,?)
  1249.     FileReq(0)
  1250.     FH=Open(#name_bak,#Mode_old)
  1251.     CheckF FH,.error
  1252.     WH=Open("T:DirTree.temp",#Mode_new)
  1253.     CheckF WH,.error1
  1254. .l1:
  1255.     Result=Fgets(FH,#Pfad,150)
  1256.     If Result##Pfad -> .ende
  1257.     cmpi.l #"CM01",pfad
  1258.     beq .l1
  1259.     cmpi.b #"%",pfad
  1260.     beq .l1
  1261.     Pathpart(#pfad)
  1262.     move.l d0,a0
  1263.     move.w #$0000,(a0)
  1264.     OK=Countstring(#pfad)
  1265.     OK==OK+1
  1266.     Write(WH,#Pfad,OK)
  1267. ;    Write(wh,"\n",1)
  1268.     bra .l1
  1269. .ende:
  1270.     Close(WH)
  1271.     Close(FH)
  1272.     FH=Open("T:DirTree.temp",#Mode_Old)
  1273.     CheckF FH,.error
  1274.     Seek(FH,0,#Offset_end)
  1275.     Len=Seek(FH,0,#Offset_begin)
  1276.     Memoryblock=AllocMem(Len,#MEMF_Public)
  1277.     CheckF memoryblock,.error1
  1278.     Read(FH,Memoryblock,len)
  1279.     Close(FH)
  1280.     Deletefile("T:Dirtree.temp")
  1281.     move.l Memoryblock,d0
  1282.     move.l Len,d1
  1283.     RTS
  1284. .error1:
  1285.     {* Flush *}
  1286.     Close(FH)
  1287. .error:
  1288.     moveq.l #0,d0
  1289.     RTS
  1290.  
  1291. EntryLevel[a0,d1]:
  1292.     movem.l a2-a6/d0-d7,-(a7)
  1293.     moveq.l #0,d0
  1294. .count:
  1295.     addq.l #1,d0
  1296.     cmpi.l d0,d1
  1297.     beq .write
  1298.     lea 1(a0),a0
  1299. .CountCells1:
  1300.     cmpi.b #0,(a0)
  1301.     beq .ERROR
  1302.     cmpi.b #`:`,(a0)
  1303.     beq .count
  1304.     cmpi.b #`/`,(a0)
  1305.     beq .Count
  1306.     lea 1(a0),a0
  1307.     bne .CountCells1
  1308. .Write:
  1309.     cmpi.l #1,d1
  1310.     beq .write0
  1311.     lea 1(a0),a0
  1312. .write0:
  1313.     move.l a0,a1
  1314. .weiter:
  1315.     cmpi.b #`:`,(a0)
  1316.     beq .next
  1317.     cmpi.b #`/`,(a0)
  1318.     beq .next
  1319.     cmpi.b #$0a,(a0)
  1320.     beq .next
  1321.     cmpi.b #$00,(a0)
  1322.     beq .next
  1323.     lea 1(a0),a0
  1324.     bra .weiter
  1325. .next:
  1326.     sub.l a1,a0
  1327.     movem.l (a7)+,a2-a6/d0-d7
  1328.     RTS
  1329. .error:
  1330.     move.l #0,a0
  1331.     move.l #0,a1
  1332.     bra .next
  1333.  
  1334. DrawTree_Lines[A2]:
  1335.     move.l (a2),a1
  1336.     OK=Countstring(a1)
  1337.     move.l 4(a2),A1
  1338.     cmpi.l #0,a1
  1339.     beq .l1
  1340.     move.l a2,-(a7)
  1341.     move.l von,-(a7)
  1342.     jsr Write_line_Sub
  1343.     DrawTree_Lines(A1)
  1344.     move.l (a7)+,von
  1345.     move.l (a7)+,a2
  1346. .l1:
  1347.     move.l 8(a2),A1
  1348.     cmpi.l #0,a1
  1349.     beq .l2
  1350.     jsr Write_line_next
  1351.     Move.l a1,a2
  1352.     bra DrawTree_Lines
  1353.  
  1354. .l2:                            ; Stack:  09080706050403020100
  1355.     RTS
  1356.  
  1357. Write_line_Sub:
  1358.     move.l 28(a2),Von
  1359.     move.l 28(a1),Bis
  1360.     movem.l a0-a1,-(a7)
  1361.     Write(FH,#von,4)
  1362.     Write(FH,#Bis,4)
  1363.     movem.l (a7)+,a0-a1
  1364.     RTS
  1365.  
  1366. Write_line_Next:
  1367.     move.l 28(a1),Bis
  1368.     movem.l a0-a1,-(a7)
  1369.     Write(FH,#von,4)
  1370.     Write(FH,#Bis,4)
  1371.     movem.l (a7)+,a0-a1
  1372.     RTS
  1373.  
  1374.  
  1375. DrawTree_Punkte[A2]:
  1376.     For I=0 to Entries
  1377.         Lines==0
  1378.         Drawtree_Sub(Tree)
  1379.         Write(FH,#X,4)
  1380.         Write(FH,#Y,4)
  1381.         Write(FH,#Z,4)
  1382.         Write(FH,namenzeiger,20)
  1383.     Next I
  1384.     RTS
  1385.  
  1386. DrawTree_Sub:
  1387.     {* Incvar: Namenzeiger*}
  1388.     Lines==Lines+1
  1389.     move.l (a2),a1
  1390.     OK=Countstring(a1)
  1391.     move.l 28(a2),d0
  1392.     cmpi.l I,d0
  1393.     bne .l0
  1394.     move.l 0(a2),Namenzeiger
  1395.     move.l 16(a2),X
  1396.     move.l 20(a2),Y
  1397.     move.l 24(a2),Z
  1398.     RTS
  1399. .l0:move.l 4(a2),A1
  1400.     cmpi.l #0,a1
  1401.     beq .l1
  1402.     move.l a2,-(a7)
  1403.     DrawTree_SUB(A1)
  1404.     move.l (a7)+,a2
  1405. .l1:
  1406.     move.l 8(a2),A1
  1407.     cmpi.l #0,a1
  1408.     beq .l2
  1409.     move.l a2,-(a7)
  1410.     DrawTree_SUB(A1)
  1411.     move.l (a7)+,a2
  1412. .l2:
  1413.     RTS
  1414.  
  1415.  
  1416. Deep[a2]:
  1417.     movem.l a0-a6,-(a7)
  1418.     For I=1 to 255
  1419.         Entrylevel(a2,I)
  1420.         cmpi.l #0,a0
  1421.         beq .ende
  1422.     Next I
  1423. .ende:
  1424.     I==I--
  1425.     movem.l (a7)+,a0-a6
  1426.     move.l I,d0
  1427.     RTS
  1428.  
  1429. Entry[Tree,a5]:
  1430.     move.l #0,Y
  1431.     Bis=Deep(a5)
  1432.     Copymem(Tree,#Eintrag,#Eintraglaenge)
  1433.     Move.l Tree,Adresse
  1434.     For I=1 to Bis
  1435.         move.l #0,X
  1436.         EntryLevel(a5,I)
  1437.         Movem.l a0-a1,-(a7)
  1438.         Fillbuffer(#buffer,0,100)
  1439.         Movem.l (a7)+,a2-a3
  1440.         Copymem(a3,#Buffer,a2)
  1441.         Addi.l #1,a2
  1442.         Move.l I,d0
  1443.         Muls.l #50,d0
  1444.         Move.l d0,Z
  1445. .again:
  1446.         If Char=#0 {
  1447.                      Mem1=AllocMem(a2,#Memf_Public)
  1448.                      CheckF mem1,.error
  1449.                      Copymem(#Buffer,mem1,a2)
  1450.                      move.l mem1,char
  1451.                      Copymem(#Eintrag,Adresse,#Eintraglaenge)
  1452.                      bra .found
  1453.                    }
  1454.         OK=ComparePfad(Char,#Buffer)
  1455.         Checkt OK,.found
  1456.         If  next=#0 {
  1457.                      Entries==Entries+1
  1458.                      Mem=Allocmem(#Eintraglaenge,#Memf_public)
  1459.                      CheckF mem,.error
  1460.                      Mem1=AllocMem(a2,#Memf_Public)
  1461.                      CheckF mem1,.error2
  1462.                      Move.l mem,a0
  1463.                      Move.l MEM1,(a0)+
  1464.                      Move.l #0,(a0)+
  1465.                      Move.l #0,(a0)+
  1466.                      Move.l Adresse,(a0)+
  1467.                      Move.l X,d0
  1468.                      Add.l #50,d0
  1469.                      Move.l d0,(a0)+
  1470.                      Move.l Y,d0
  1471.                      Add.l #50,d0
  1472.                      Move.l d0,(a0)+
  1473.                      Move.l Z,(a0)+
  1474.                      Move.l Entries,(a0)+
  1475.                      Move.l Mem,Next
  1476.                      CopyMem(a3,mem1,a2)
  1477.                      move.l mem1,a0     
  1478.                      add.l a2,a0
  1479.                      move.b #0,-1(a0)
  1480.                      Copymem(#Eintrag,Adresse,#Eintraglaenge)
  1481.                      move.l next,Adresse
  1482.                      CopyMem(Next,#Eintrag,#Eintraglaenge)
  1483.                      Move.l X,d0
  1484.                      add.l #50,d0
  1485.                      move.l d0,X
  1486.                      Move.l Y,d0
  1487.                      add.l #50,d0
  1488.                      move.l d0,Y
  1489.                      bra .found
  1490.                     }
  1491.         move.l next,Adresse
  1492.         CopyMem(Next,#Eintrag,#Eintraglaenge)
  1493.         bra .Again
  1494. .found:
  1495.         IF I=Bis --> .tonext
  1496.         If Sub=#0 {
  1497.                      Entries==Entries+1
  1498.                      Mem=Allocmem(#Eintraglaenge,#Memf_public)
  1499.                      CheckF mem,.error
  1500.                      move.l mem,a0
  1501.                      move.l #0,(a0)+
  1502.                      move.l #0,(a0)+
  1503.                      move.l #0,(a0)+
  1504.                      Move.l Adresse,(a0)+
  1505.                      move.l X,(a0)+
  1506.                      Move.l Y,(a0)+
  1507.                      Move.l Z,(a0)+
  1508.                      Move.l Entries,(a0)+
  1509.                      move.l mem,Sub
  1510.                      Copymem(#Eintrag,Adresse,#Eintraglaenge)
  1511.                    }
  1512.         move.l sub,Adresse
  1513.         Copymem(Sub,#Eintrag,#Eintraglaenge)
  1514. .tonext:
  1515.     Next I
  1516.     RTS
  1517. .error2:
  1518.     FreeMem(mem,#Eintraglaenge)
  1519. .error:
  1520.     move.l #0,d0
  1521.     RTS
  1522.  
  1523. DrawTree[a2]:
  1524.     move.l (a2),a1
  1525.     OK=Countstring(a1)
  1526.     move.l 16(a2),X
  1527.     move.l 20(a2),Y
  1528.     move.l 24(a2),Z
  1529.     Write(Oh,a1,ok)
  1530.     Write(oh,":X=",3)
  1531.     Convertzahl(X,OH)
  1532.     Write(oh,":Y=",3)
  1533.     Convertzahl(Y,OH)
  1534.     Write(oh,":Z=",3)
  1535.     Convertzahl(Z,OH)
  1536.     Write(oh,"\n",1)
  1537.     move.l 4(a2),A1
  1538.     cmpi.l #0,a1
  1539.     beq .l1
  1540.     move.l a2,-(a7)
  1541.     DrawTree(A1)
  1542.     move.l (a7)+,a2
  1543. .l1:
  1544.     move.l 8(a2),A1
  1545.     cmpi.l #0,a1
  1546.     beq .l2
  1547.     move.l a2,-(a7)
  1548.     DrawTree(A1)
  1549.     move.l (a7)+,a2
  1550. .l2:
  1551.     RTS
  1552.  
  1553. BuildTree[]:
  1554.     Entries==1
  1555.     Zeiger==Memoryblock
  1556.     Fillbuffer(#buffer,0,100)
  1557.     OK=Entry(Tree,Zeiger)
  1558.     Checkf OK,.ende
  1559. .Schleife:
  1560.     Zeiger=Rgets2(Zeiger)
  1561.     If Zeiger=#0 --> .ende
  1562.     OK=Entry(Tree,Zeiger)
  1563.     Checkf OK,.ende
  1564.     bra .Schleife
  1565. .ende:
  1566.     RTS
  1567.  
  1568. MakeTree[]:
  1569.     move.l #0,Char
  1570.     move.l #0,Sub
  1571.     move.l #0,Next
  1572.     move.l #0,Last
  1573.     move.l #0,X
  1574.     move.l #0,Y
  1575.     move.l #0,Z
  1576.     move.l #1,EntryNr
  1577.     Zeiger=Allocmem(#Eintraglaenge,#Memf_Public)
  1578.     Checkf Zeiger,.error
  1579.     Copymem(#Eintrag,Zeiger,#Eintraglaenge)
  1580.     move.l Zeiger,d0
  1581.     RTS
  1582. .error:
  1583.     {* Returnq 0*}    
  1584.                  
  1585. KillTree[a2]:
  1586.     move.l 4(a2),A1
  1587.     cmpi.l #0,a1
  1588.     beq .l1
  1589.     move.l a2,-(a7)
  1590.     KillTree(A1)
  1591.     move.l (a7)+,a2
  1592. .l1:
  1593.     move.l 8(a2),A1
  1594.     cmpi.l #0,a1
  1595.     beq .l2
  1596.     move.l a2,-(a7)
  1597.     KillTree(A1)
  1598.     move.l (a7)+,a2
  1599. .l2:
  1600.     move.l (a2),a1
  1601.     OK=Countstring(a1)
  1602.     checkf Ok,.l3
  1603.     OK==OK+1
  1604.     freemem(a1,ok)
  1605. .l3:
  1606.     {* Flush *}
  1607.     freemem(a2,#Eintraglaenge)
  1608.     RTS
  1609.  
  1610. Eintrag:
  1611. Char:   dc.l 0   ; Zeiger auf String Nullterminiert
  1612. Sub:    dc.l 0   ; Zeiger auf Subdir
  1613. Next:   dc.l 0   ; Zeiger auf NextEntry
  1614. Last:   dc.l 0   ; Zeiger auf PrevEntry
  1615. X:      dc.l 0   ; 
  1616. Y:      dc.l 0   ; 3d - Koordinate
  1617. Z:      dc.l 0   ;
  1618. EntryNr:dc.l 0   ; PunktNummer
  1619.  
  1620. Message:
  1621.         dc.l 0
  1622.         dc.l 0
  1623.         dc.b 5,0
  1624.         dc.l 0
  1625.         dc.l 0
  1626.         dc.w 0
  1627.